home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / gnu / ms-0_06.lha / mslaved-0.06 / enslave < prev    next >
Text File  |  1991-08-10  |  2KB  |  83 lines
  1. #!/bin/sh
  2. #
  3. # enslave - manual startup of MandelSpawn computation servers
  4. # 
  5. # usage: enslave [-n] [-v] [hosts...]
  6. #
  7. #    -v means print the rsh commands before executing
  8. #     -n means print the rsh commands but don't execute them
  9. #
  10.  
  11. # If you are running System V where "rsh" means "restricted shell" by default,
  12. # you may need to change "rsh" below to "/usr/ucb/rsh", "/usr/bsd/rsh" or 
  13. # wherever the "remote shell" command resides on your particular system.
  14. RSH=rsh
  15.  
  16. while true
  17. do
  18.     case $1 in
  19.         -v) SHOPTS="${SHOPTS}v"; shift ;;
  20.         -n) SHOPTS="${SHOPTS}nv"; shift ;;
  21.         *) break ;;
  22.     esac
  23. done
  24.  
  25. tmp=/tmp/ens$$
  26. tmp3=/tmp/enu$$
  27.  
  28. sort -b $HOME/.enslave | grep -v '^#' >$tmp
  29.  
  30. # if arguments, extract the wanted machines
  31. if test -n "$*"
  32. then
  33.     tmp2=/tmp/ent$$
  34.     for mach in $*
  35.     do 
  36.         echo $mach
  37.     done | sort -b >$tmp2
  38.     cat $tmp | awk '{print $1}' | comm -13 - $tmp2 |
  39.            awk '{printf "'$0': host %s not in .enslave, ignored\n", $1}' 1>&2
  40.     join $tmp $tmp2
  41.     rm -f $tmp2
  42. else
  43.     cat $tmp
  44. fi >$tmp3
  45.  
  46. cat $tmp3 |
  47.   awk '
  48.   { opts=""
  49.      for(i=3; i<=NF; i++) opts=opts" "$i
  50.      printf "%s \"%s%s%s %s%s >/dev/null </dev/null &\"\n", \
  51.      $1, $2, "mslavedc", opts, $2, "mslaved" 
  52.   }' >$tmp
  53.  
  54. # If you have a different username on a remote machine and don't trust
  55. # it enough to put it in your .rhosts file, put it in .rhostile instead.
  56.  
  57. cat $HOME/.rhosts $HOME/.rhostile 2>/dev/null | sort -b | 
  58.   # if multiple usernames for the same host, chooses one arbitrarily
  59.   awk '{print $2, $1}' | uniq -1 | 
  60.   awk '{print $2, "-l", $1}' | join -a2 - $tmp | 
  61.  
  62. # Now the data stream contains ready-to-run rsh arguments.  Run the rsh's
  63. # in parallel, with some delay inbetween to avoid driving the load average
  64. # too high.  Because most of the possible error messages from the remote
  65. # process do not include the host name, prepend it to the output from rsh.
  66.  
  67. (
  68. while read host rest
  69. do
  70.     # the silly quoted newline is there just to get newlines in the output
  71.     # of "enslave -v" and "enslave -n".  The redirect from </dev/null
  72.     # is to stop rsh from eating the standard input stream intended
  73.     # for the "read" above.
  74.     sh -c$SHOPTS "exec $RSH $host $rest 2>&1 | sed -e 's/^/$host: /' 1>&2"'
  75. ' </dev/null &
  76.     sleep 2
  77. done 
  78.  
  79. wait    # make sure all error messages have been printed before exiting
  80. )
  81.  
  82. rm -f $tmp $tmp3
  83.